home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Graphics Programming (2nd Edition)
/
Visual Basic Graphics Programming 2nd Edition.iso
/
Src
/
Ch17
/
3Sph.ray
< prev
next >
Wrap
Text File
|
1999-07-06
|
794b
|
30 lines
Viewpoint(1000, 1.1, -0.3)
AmbientLight(50, 50, 50)
LightSource(-1000, -500, 1000, 255, 255, 255)
LightSource(1000, -500, 1000, 255, 255, 255)
Sphere( 50, 0, 0, 52,
0.5, 0.1, 0.1, ' Ambient.
0.5, 0.1, 0.1, ' Diffuse.
20, 0.35, ' Specular.
0, 0, 0, ' Reflected.
3, 1, 1.4, ' TransN, n1, n2.
0, 0, 0 ' Tansmission.
)
Sphere(50, -60, 0, -52,
0.1, 0.1, 0.5, ' Ambient.
0.1, 0.1, 0.5, ' Diffuse.
20, 0.35, ' Specular.
0, 0, 0, ' Reflected.
3, 1, 1.4, ' TransN, n1, n2.
0, 0, 0 ' Tansmission.
)
Sphere(50, 60, 0, -52,
0.1, 0.5, 0.1, ' Ambient.
0.1, 0.5, 0.1, ' Diffuse.
20, 0.35, ' Specular.
0, 0, 0, ' Reflected.
3, 1, 1.4, ' TransN, n1, n2.
0, 0, 0 ' Tansmission.
)